home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dbcexe / property.cls < prev    next >
Encoding:
Visual Basic class definition  |  1997-07-16  |  682 b   |  38 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "PropertyUpdate"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Option Explicit
  11.  
  12.     Private m_strFieldName As String
  13.     Private m_vValue As Variant
  14.     
  15. Public Property Let FieldName(vData As String)
  16.  
  17.     m_strFieldName = vData
  18.  
  19. End Property
  20.  
  21. Public Property Get FieldName() As String
  22.  
  23.     FieldName = m_strFieldName
  24.  
  25. End Property
  26.  
  27. Public Property Let Value(vData As Variant)
  28.  
  29.     m_vValue = vData
  30.  
  31. End Property
  32.  
  33. Public Property Get Value() As Variant
  34.  
  35.     Value = m_vValue
  36.  
  37. End Property
  38.